home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / demos / 275 / pascal / fastread.typ < prev    next >
Encoding:
Text File  |  1988-06-25  |  1.4 KB  |  26 lines
  1.    Max_String = String[ String_Size ] ; {For text line returned.      }
  2.  
  3. {  Where the file is stored when read in.                     }
  4.    Contents = PACKED ARRAY[ 1..Contents_Plus_1 ] OF CHAR ;
  5.  
  6.    Buffer = RECORD
  7.       Buffer_Contents : Contents ; { Contents of the buffer.         }
  8.       File_Handle : INTEGER ; {      File handle.                    }
  9.       Error_Number : INTEGER ; {     Error Number if error occured.  }
  10.       No_Error : BOOLEAN ; {         Was there no error occuring?    }
  11.       Buffer_Pos : LONG_INTEGER ; {  Position to be read next.       }
  12.       Buffer_Len : LONG_INTEGER ; {  How long is the buffer?         }
  13.       Last_Buffer : BOOLEAN ; {      Is this the last buffer?        }
  14.       Eof_Buffer : BOOLEAN ; {       Are we at the end of the file?  }
  15.       Sof_Buffer : BOOLEAN ; {       Are we at the start of the file?}
  16.       Reading_File : BOOLEAN ; {     Are we reading this file?       }
  17.       Fast_Return : CHAR ; {         Return character.               }
  18.       Fast_Line_Feed : CHAR ; {      Line feed character.            }
  19.       Pos_In_File : LONG_INTEGER ; { What is the char count to the   }
  20. {                                    Start of this buffer?           }
  21.       End_Pos : LONG_INTEGER ; {     What is the char count to the   }
  22. {                                    end of this buffer?             }
  23.     END ; {of type buffer }
  24.  
  25.    Path_Chars = PACKED ARRAY[ 1..80 ] OF CHAR ; {C_File name.       }
  26.